perm filename ARCS.MF[MF,ALS] blob
sn#571674 filedate 1981-03-20 generic text, type C, neo UTF8
COMMENT ā VALID 00006 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 "Arcs of a Circle font created by ALS"
C00004 00003 "`a: From S to E"
C00005 00004 "`b: From W to S"
C00006 00005 "`c: From N to E"
C00007 00006 "`d: From W to N"
C00008 ENDMK
Cā;
"Arcs of a Circle font created by ALS";
% To draw a complete circle write
% ab
% cd
% with \baselineskip set to pts value.
% fntmode; % this causes a font to be created for the XGP?
% tfmmode; % this causes a TEX information file to be produced
% proofmode;
drawdisplay;
titletrace; % this prints out quoted strings when they occur
pts=50; % Creating a 1.38 inch diameter circle.
% Maximum value limited to 100 or 2.76 inches.
pixels=5.3; % raster units per point for TEX on the DOVER maybe
w0=3;
cpen; maxht top0 pts.pixels. % tallest output in raster units
r=pts.pixels;
subroutine darc(index i,index j, index k):
% Quadrant circular arc from point i to point j
% with point k on the convex side.
x1=xi; x2=xj; x3=xk; y1=yi; y2=yj; y3=yk;
cpen; w0 draw 1{xk-xi,yk-yi}..2{xj-xk,yj-yk};
charht pts; charwd pts; chardw round pts.
"`a: From S to E";
x1=x3=y3=y4=0; y1=x2=y2=x4=r;
charcode `a;
call darc(2,3,1).
"`b: From W to S";
x1=x3=y3=y4=0; y1=x2=y2=x4=r;
charcode `b;
call darc(1,4,2).
"`c: From N to E";
x1=x3=y3=y4=0; y1=x2=y2=x4=r;
charcode `c;
call darc(1,4,3).
"`d: From W to N";
x1=x3=y3=y4=0; y1=x2=y2=x4=r;
charcode `c;
call darc(3,2,4).
end.